home *** CD-ROM | disk | FTP | other *** search
- Path: xanth!cs.odu.edu!Amiga-Request
- From: Amiga-Request@cs.odu.edu (Amiga Sources/Binaries Moderator)
- Newsgroups: comp.sources.amiga
- Subject: v90i179: UUCP 1.06D - UNIX compatible uucp/news/mail system, Part01/12
- Message-ID: <12970@xanth.cs.odu.edu>
- Date: 28 Jun 90 12:21:57 GMT
- Sender: news@cs.odu.edu
- Reply-To: Matt Dillon <@uunet.uu.net:overload!dillon>
- Lines: 2679
- Approved: tadguy@cs.odu.edu (Tad Guy)
- X-Mail-Submissions-To: Amiga@cs.odu.edu
- X-Post-Discussions-To: comp.sys.amiga
-
- Submitted-by: Matt Dillon <@uunet.uu.net:overload!dillon>
- Posting-number: Volume 90, Issue 179
- Archive-name: unix/uucp-1.06d/part01
-
- [ This is UUCP 1.06D from Matt Dillon.
-
- This distribution consists of three disks --
- Disk 1 contains the core system
- Disk 2 contains manual pages and other utilities
- Disk 3 contains the uucp source
-
- This group of postings consists of disk three.
- Disks one and two have already been posted in comp.binaries.amiga.
-
- Care should be taken not to mix the parts of the different disks.
- Only disks one and two are needed to use UUCP. You can ignore the sources.
-
- With this package and a willing UUCP neighbor, it's possible to have an
- Amiga participate directly in USENET and UUCP (news, mail, etc.).
-
- ...tad ]
-
- #!/bin/sh
- # This is a shell archive. Remove anything before this line, then unpack
- # it by saving it into a file and typing "sh file". To overwrite existing
- # files, type "sh file -c". You can also feed this as standard input via
- # unshar, or by typing "sh <file", e.g.. If this archive is complete, you
- # will see the following message at the end:
- # "End of archive 1 (of 12)."
- # Contents: uucp2 uucp2/src uucp2/src/GUtil uucp2/src/GUtil/DMakefile
- # uucp2/src/GUtil/DMakefile.dcc uucp2/src/GUtil/version.doc
- # uucp2/src/TODO uucp2/src/anews uucp2/src/anews/DMakefile
- # uucp2/src/anews/DMakefile.dcc uucp2/src/anews/version.doc
- # uucp2/src/clean uucp2/src/clean-dcc uucp2/src/dmail
- # uucp2/src/dmail/TODO uucp2/src/dmail/execom.h
- # uucp2/src/dmail/version.doc uucp2/src/getty
- # uucp2/src/getty/DMakefile uucp2/src/getty/DMakefile.dcc
- # uucp2/src/getty/icept.asm uucp2/src/getty/syms.c
- # uucp2/src/getty/version.doc uucp2/src/include
- # uucp2/src/include/expand_path.h uucp2/src/include/getfiles.h
- # uucp2/src/include/log.h uucp2/src/include/protos.h
- # uucp2/src/include/pwd.h uucp2/src/include/rcs.h
- # uucp2/src/include/sendmail_protos.h uucp2/src/include/sys
- # uucp2/src/include/sys/file.h uucp2/src/include/sys/stat.h
- # uucp2/src/include/sys/time.h uucp2/src/include/sys/types.h
- # uucp2/src/include/version.h uucp2/src/lib
- # uucp2/src/lib/expand_path.c uucp2/src/lib/getenv.c
- # uucp2/src/lib/getuser.c uucp2/src/lib/isdir.c uucp2/src/lib/lsys.c
- # uucp2/src/lib/makeproto.c uucp2/src/lib/mntreq.c
- # uucp2/src/lib/seq.c uucp2/src/lib/setstdin.c uucp2/src/lib/sleep.c
- # uucp2/src/lib/string.c uucp2/src/lib/syms.c
- # uucp2/src/lib/tmpfile.c uucp2/src/lib/validuser.c uucp2/src/mkall
- # uucp2/src/mkall-dcc uucp2/src/news uucp2/src/news/DMakefile
- # uucp2/src/news/DMakefile.dcc uucp2/src/news/version.doc
- # uucp2/src/sendmail uucp2/src/sendmail/DMakefile
- # uucp2/src/sendmail/DMakefile.dcc uucp2/src/sendmail/defs.h
- # uucp2/src/sendmail/version.doc uucp2/src/unix uucp2/src/util
- # uucp2/src/util/DMakefile uucp2/src/util/DMakefile.dcc
- # uucp2/src/util/expandm.c uucp2/src/util/uident.c
- # uucp2/src/util/version.doc uucp2/src/uucico
- # uucp2/src/uucico/includes.h uucp2/src/uucico/uuhosts.c
- # uucp2/src/uucico/uuname.c uucp2/src/uuser
- # uucp2/src/uuser/DMakefile uucp2/src/uuser/DMakefile.dcc
- # uucp2/src/uuser/mountlist uucp2/src/uuser/version.doc
- # Wrapped by tadguy@xanth on Thu Jun 28 08:21:07 1990
- PATH=/bin:/usr/bin:/usr/ucb ; export PATH
- if test ! -d 'uucp2' ; then
- echo shar: Creating directory \"'uucp2'\"
- mkdir 'uucp2'
- fi
- if test ! -d 'uucp2/src' ; then
- echo shar: Creating directory \"'uucp2/src'\"
- mkdir 'uucp2/src'
- fi
- if test ! -d 'uucp2/src/GUtil' ; then
- echo shar: Creating directory \"'uucp2/src/GUtil'\"
- mkdir 'uucp2/src/GUtil'
- fi
- if test -f 'uucp2/src/GUtil/DMakefile' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/GUtil/DMakefile'\"
- else
- echo shar: Extracting \"'uucp2/src/GUtil/DMakefile'\" \(671 characters\)
- sed "s/^X//" >'uucp2/src/GUtil/DMakefile' <<'END_OF_FILE'
- X
- X# DMakefile
- X#
- X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X#
- X# $Header: Beta:src/uucp/src/GUtil/RCS/DMakefile,v 1.1 90/02/02 11:58:54 dillon Exp Locker: dillon $
- X
- XOD= ltmp:uucp/
- XSYMS= uucp:src/lib/all.m
- XSRCS= uuserdump.c gnote.c
- XOBJS= $(SRCS:"*.c":"$(OD)*.o")
- XCFLAGS= -iuucp:src/include/ -cq -v
- XEXE= uucp:c/
- XLIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
- X
- Xall: $(EXE)uuserdump $(EXE)gnote
- X
- X$(EXE)uuserdump: $(OD)uuserdump.o
- X blink from lib:cres.o %(right) TO %(left) lib $(LIBS)
- X
- X$(EXE)gnote: $(OD)gnote.o
- X blink from lib:cres.o %(right) TO %(left) lib $(LIBS)
- X
- X$(OBJS) : $(SRCS)
- X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
- X
- END_OF_FILE
- if test 671 -ne `wc -c <'uucp2/src/GUtil/DMakefile'`; then
- echo shar: \"'uucp2/src/GUtil/DMakefile'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/GUtil/DMakefile'
- fi
- if test -f 'uucp2/src/GUtil/DMakefile.dcc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/GUtil/DMakefile.dcc'\"
- else
- echo shar: Extracting \"'uucp2/src/GUtil/DMakefile.dcc'\" \(585 characters\)
- sed "s/^X//" >'uucp2/src/GUtil/DMakefile.dcc' <<'END_OF_FILE'
- X
- X# DMakefile for DICE
- X#
- X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X#
- X# $Header: Beta:src/uucp/src/GUtil/RCS/DMakefile,v 1.1 90/02/02 11:58:54 dillon Exp Locker: dillon $
- X
- XOD= dtmp:uucp/
- XSRCS= uuserdump.c gnote.c
- XOBJS= $(SRCS:"*.c":"$(OD)*.o")
- XCFLAGS= -I uucp:src/include/
- XEXE= uucp:c/
- XLIBS= $(OD)lib/uucp.lib
- X
- Xall: $(EXE)uuserdump $(EXE)gnote
- X
- X$(EXE)uuserdump: $(OD)uuserdump.o
- X dcc %(right) $(LIBS) -o %(left) -r -s
- X
- X$(EXE)gnote: $(OD)gnote.o
- X dcc %(right) $(LIBS) -o %(left) -r -s
- X
- X$(OBJS) : $(SRCS)
- X dcc $(CFLAGS) %(right) -o %(left) -c -r
- X
- END_OF_FILE
- if test 585 -ne `wc -c <'uucp2/src/GUtil/DMakefile.dcc'`; then
- echo shar: \"'uucp2/src/GUtil/DMakefile.dcc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/GUtil/DMakefile.dcc'
- fi
- if test -f 'uucp2/src/GUtil/version.doc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/GUtil/version.doc'\"
- else
- echo shar: Extracting \"'uucp2/src/GUtil/version.doc'\" \(323 characters\)
- sed "s/^X//" >'uucp2/src/GUtil/version.doc' <<'END_OF_FILE'
- X
- X VERSION.DOC
- X
- XUUSERDUMP
- X
- X .01
- X No changes, but warning (1.06 release) that Getty now uses a
- X 5 minute timeout instead of a 1 second timeout, so the code
- X currently waits for wayyy to long before hanging up automatically
- X
- X .00
- X Initial Release
- X
- X
- XGNOTE
- X .01
- X See UUSERDUMP notes for .01
- X
- X .00
- X Initial Release
- X
- X
- END_OF_FILE
- if test 323 -ne `wc -c <'uucp2/src/GUtil/version.doc'`; then
- echo shar: \"'uucp2/src/GUtil/version.doc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/GUtil/version.doc'
- fi
- if test -f 'uucp2/src/TODO' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/TODO'\"
- else
- echo shar: Extracting \"'uucp2/src/TODO'\" \(848 characters\)
- sed "s/^X//" >'uucp2/src/TODO' <<'END_OF_FILE'
- X
- X AZTEC
- X
- X UUSER: timeout, ^C, flow control
- X
- X alias: mail directly to alias ... ok
- X mail to alias@overload.UUCP ... goes to email.
- X
- X uucico: -r1 hunt doesn't work always
- X uucico: implement alternate send-expect stuff
- X uucico: exit code when cannot connect!
- X uucico: detect BUSY return
- X
- X sendmail: sort the To: list and remove duplicates due to aliases
- X sendmail: return erronous email to sender... Mailer-Daemon
- X sendmail: too-many-hops stuff
- X sendmail: From line ... 'forwarded by user' form (delete)
- X
- X pathalias: Implement some sort of automatic domain routing mechanism
- X based on a '|' alias and cron based domain updater.
- X
- X news: we need news routing! slated for 1.07
- X
- X aliases: it is possible to get into a stack loop when
- X using the <file feature in the Aliases file.
- END_OF_FILE
- if test 848 -ne `wc -c <'uucp2/src/TODO'`; then
- echo shar: \"'uucp2/src/TODO'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/TODO'
- fi
- if test ! -d 'uucp2/src/anews' ; then
- echo shar: Creating directory \"'uucp2/src/anews'\"
- mkdir 'uucp2/src/anews'
- fi
- if test -f 'uucp2/src/anews/DMakefile' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/anews/DMakefile'\"
- else
- echo shar: Extracting \"'uucp2/src/anews/DMakefile'\" \(452 characters\)
- sed "s/^X//" >'uucp2/src/anews/DMakefile' <<'END_OF_FILE'
- X
- XOD= ltmp:uucp/anews/
- X
- XASRCS= news.c showart.c reply.c followup.c mscan.c unpackmail.c sendpacket.c raw.c
- X
- XAOBJS= $(ASRCS:"*.c":"$(OD)*.o")
- X
- XAOBS = $(ASRCS:"*.c":"*.o")
- X
- XAEXE= uucp:c/anews
- X
- XCFLAGS = -iuucp:src/include/ -cq -v -b0
- XLIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
- X
- Xall : $(AEXE)
- X
- X$(AEXE) : $(AOBJS)
- X cd $(OD)
- X blink from lib:c.o $(AOBS) to %(left) lib $(LIBS)
- X cd
- X
- X$(AOBJS) : $(ASRCS)
- X lc $(CFLAGS) -o%(left) %(right)
- X
- X
- END_OF_FILE
- if test 452 -ne `wc -c <'uucp2/src/anews/DMakefile'`; then
- echo shar: \"'uucp2/src/anews/DMakefile'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/anews/DMakefile'
- fi
- if test -f 'uucp2/src/anews/DMakefile.dcc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/anews/DMakefile.dcc'\"
- else
- echo shar: Extracting \"'uucp2/src/anews/DMakefile.dcc'\" \(454 characters\)
- sed "s/^X//" >'uucp2/src/anews/DMakefile.dcc' <<'END_OF_FILE'
- X
- X# DMakefile for DCC (dillon's compiler)
- X
- XOD= dtmp:uucp/anews/
- X
- XASRCS= news.c showart.c reply.c followup.c mscan.c unpackmail.c sendpacket.c raw.c
- X
- XAOBJS= $(ASRCS:"*.c":"$(OD)*.o")
- X
- XAOBS = $(ASRCS:"*.c":"*.o")
- X
- XAEXE= uucp:c/anews
- X
- XCFLAGS = -I uucp:src/include/
- XLIBS= dtmp:uucp/lib/uucp.lib
- X
- Xall : $(AEXE)
- X
- X$(AEXE) : $(AOBJS)
- X cd $(OD)
- X dcc $(AOBS) $(LIBS) -o %(left) -s -r
- X cd
- X
- X$(AOBJS) : $(ASRCS)
- X dcc $(CFLAGS) %(right) -o %(left) -r -c
- X
- END_OF_FILE
- if test 454 -ne `wc -c <'uucp2/src/anews/DMakefile.dcc'`; then
- echo shar: \"'uucp2/src/anews/DMakefile.dcc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/anews/DMakefile.dcc'
- fi
- if test -f 'uucp2/src/anews/version.doc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/anews/version.doc'\"
- else
- echo shar: Extracting \"'uucp2/src/anews/version.doc'\" \(565 characters\)
- sed "s/^X//" >'uucp2/src/anews/version.doc' <<'END_OF_FILE'
- X
- XANEWS:
- X .03 (1.06)
- X Now handles r/Reply and f/Followup properly. Fixed memory
- X free bug in followup.
- X
- X Tries to use <user>.signature file before .signature in
- X your UULIB:
- X
- X .02
- X Now handles reply,Reply, and posting
- X
- X Now accepts -r rows -c columns arguments to command
- X line to set window size (does not yet do so automatically)
- X
- X Now accepts -p group on the command line to explicitly
- X post to a newsgroup.
- X
- X 'q' and 'Q' bump you back to the top level instead of
- X exiting.
- X
- X 'Q' does not delete any articles when you bump back.
- X
- X .01 1.03D release
- X
- END_OF_FILE
- if test 565 -ne `wc -c <'uucp2/src/anews/version.doc'`; then
- echo shar: \"'uucp2/src/anews/version.doc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/anews/version.doc'
- fi
- if test -f 'uucp2/src/clean' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/clean'\"
- else
- echo shar: Extracting \"'uucp2/src/clean'\" \(161 characters\)
- sed "s/^X//" >'uucp2/src/clean' <<'END_OF_FILE'
- Xdelete ltmp:uucp/#?.o quiet
- Xdelete ltmp:uucp/lib/#? quiet
- Xdelete ltmp:uucp/anews/#?.o quiet
- Xdelete ltmp:uucp/dnews/#?.o quiet
- Xdelete ltmp:uucp/dmail/#?.o quiet
- X
- END_OF_FILE
- if test 161 -ne `wc -c <'uucp2/src/clean'`; then
- echo shar: \"'uucp2/src/clean'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/clean'
- fi
- if test -f 'uucp2/src/clean-dcc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/clean-dcc'\"
- else
- echo shar: Extracting \"'uucp2/src/clean-dcc'\" \(161 characters\)
- sed "s/^X//" >'uucp2/src/clean-dcc' <<'END_OF_FILE'
- Xdelete dtmp:uucp/#?.o quiet
- Xdelete dtmp:uucp/lib/#? quiet
- Xdelete dtmp:uucp/anews/#?.o quiet
- Xdelete dtmp:uucp/dnews/#?.o quiet
- Xdelete dtmp:uucp/dmail/#?.o quiet
- X
- END_OF_FILE
- if test 161 -ne `wc -c <'uucp2/src/clean-dcc'`; then
- echo shar: \"'uucp2/src/clean-dcc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/clean-dcc'
- fi
- if test ! -d 'uucp2/src/dmail' ; then
- echo shar: Creating directory \"'uucp2/src/dmail'\"
- mkdir 'uucp2/src/dmail'
- fi
- if test -f 'uucp2/src/dmail/TODO' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/dmail/TODO'\"
- else
- echo shar: Extracting \"'uucp2/src/dmail/TODO'\" \(420 characters\)
- sed "s/^X//" >'uucp2/src/dmail/TODO' <<'END_OF_FILE'
- X
- X $Header: Beta:src/uucp/src/dmail/RCS/TODO,v 1.1 90/02/02 12:03:56 dillon Exp Locker: dillon $
- X
- XLIST tabs....
- Xother junk, fix bugs (malloc stuff)
- X
- X-multiple dimension arrayed variables, add ability to do a natural join
- X coupled to a command.
- X
- X-Automatically remove fields on forward, mail, and reply.
- X
- XResend support:
- X New To: on top.
- X New Cc: .... etc etc etc
- X prepend Resent- to Date, From, Message-Id, *To, *Cc
- X
- X
- END_OF_FILE
- if test 420 -ne `wc -c <'uucp2/src/dmail/TODO'`; then
- echo shar: \"'uucp2/src/dmail/TODO'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/dmail/TODO'
- fi
- if test -f 'uucp2/src/dmail/execom.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/dmail/execom.h'\"
- else
- echo shar: Extracting \"'uucp2/src/dmail/execom.h'\" \(463 characters\)
- sed "s/^X//" >'uucp2/src/dmail/execom.h' <<'END_OF_FILE'
- X
- X/*
- X * EXECOM.H
- X *
- X * $Header: Beta:src/uucp/src/dmail/RCS/execom.h,v 1.1 90/02/02 12:03:53 dillon Exp Locker: dillon $
- X *
- X * (C) Copyright 1985-1990 by Matthew Dillon, All Rights Reserved.
- X */
- X
- Xstruct COMMAND {
- X int (*func)();
- X int stat;
- X int val;
- X char *name;
- X};
- X
- Xextern struct COMMAND Command[];
- Xextern char *Desc[];
- X
- X#define C_NO 0x01 /* Not implimented yet */
- X#define C_COND 0x02 /* Is conditional, execute despite if */
- X
- X
- END_OF_FILE
- if test 463 -ne `wc -c <'uucp2/src/dmail/execom.h'`; then
- echo shar: \"'uucp2/src/dmail/execom.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/dmail/execom.h'
- fi
- if test -f 'uucp2/src/dmail/version.doc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/dmail/version.doc'\"
- else
- echo shar: Extracting \"'uucp2/src/dmail/version.doc'\" \(770 characters\)
- sed "s/^X//" >'uucp2/src/dmail/version.doc' <<'END_OF_FILE'
- X
- X $Header: Beta:src/uucp/src/dmail/RCS/version.doc,v 1.1 90/02/02 12:03:45 dillon Exp Locker: dillon $
- X
- X DMAIL
- X
- X .04 1.06 fixes, Cc: line on reply fixed, deletes t:Original.
- X
- X .03 ENV:USER enviroment variable overides config UserName
- X entry when DMail is looking for mail.
- X
- X .02 signature file ($header variable) is now appended to the
- X END of included text instead of the beginning.
- X
- X .01 unmark and associated commands (like pre) no longer return
- X an error if there are no articles to unmark.
- X
- X If new mail comes in while we are reading mail dmail no
- X longer looses it when you update the mail file.
- X
- X DMail now recognizes new mail. If the last select you did
- X was a 'sel all' it becomes immediately available for
- X viewing.
- X
- X .00 Initial port from UNIX
- X
- END_OF_FILE
- if test 770 -ne `wc -c <'uucp2/src/dmail/version.doc'`; then
- echo shar: \"'uucp2/src/dmail/version.doc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/dmail/version.doc'
- fi
- if test ! -d 'uucp2/src/getty' ; then
- echo shar: Creating directory \"'uucp2/src/getty'\"
- mkdir 'uucp2/src/getty'
- fi
- if test -f 'uucp2/src/getty/DMakefile' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/getty/DMakefile'\"
- else
- echo shar: Extracting \"'uucp2/src/getty/DMakefile'\" \(708 characters\)
- sed "s/^X//" >'uucp2/src/getty/DMakefile' <<'END_OF_FILE'
- X
- X# Note, getty cannot currently be made resident due to device vectoring
- X#
- X# $Header: Beta:src/uucp/src/getty/RCS/DMakefile,v 1.1 90/02/02 12:13:26 dillon Exp Locker: dillon $
- X#
- X#
- X
- XOD= ltmp:uucp/
- XSYMS= uucp:src/lib/all.m
- XSRCS= getty.c passwd.c
- XOBJS= $(SRCS:"*.c":"$(OD)*.o")
- XCFLAGS= -iuucp:src/include/ -cim -cq
- XAFLAGS = -ilattice:asminclude/
- XEXE= uucp:c/
- XLIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
- X
- XASRCS= icept.asm
- XAOBJS= $(ASRCS:"*.asm":"$(OD)*.o")
- X
- Xall: $(EXE)getty
- X
- X$(EXE)getty: $(OBJS) $(AOBJS)
- X blink from lib:c.o $(OBJS) $(AOBJS) SC TO %(left) lib $(LIBS)
- X
- X$(OBJS) : $(SRCS)
- X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
- X
- X$(AOBJS) : $(ASRCS)
- X asm $(AFLAGS) -o%(left) %(right)
- X
- END_OF_FILE
- if test 708 -ne `wc -c <'uucp2/src/getty/DMakefile'`; then
- echo shar: \"'uucp2/src/getty/DMakefile'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/getty/DMakefile'
- fi
- if test -f 'uucp2/src/getty/DMakefile.dcc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/getty/DMakefile.dcc'\"
- else
- echo shar: Extracting \"'uucp2/src/getty/DMakefile.dcc'\" \(626 characters\)
- sed "s/^X//" >'uucp2/src/getty/DMakefile.dcc' <<'END_OF_FILE'
- X
- X# Note, getty cannot currently be made resident due to device vectoring
- X#
- X# $Header: Beta:src/uucp/src/getty/RCS/DMakefile,v 1.1 90/02/02 12:13:26 dillon Exp Locker: dillon $
- X#
- X#
- X
- XOD= dtmp:uucp/
- XSRCS= getty.c passwd.c
- XOBJS= $(SRCS:"*.c":"$(OD)*.o")
- XCFLAGS= -I uucp:src/include/
- XAFLAGS = -ilattice:asminclude/
- XEXE= uucp:c/
- XLIBS= dtmp:uucp/lib/uucp.lib
- X
- XASRCS= icept.asm
- XAOBJS= $(ASRCS:"*.asm":"$(OD)*.o")
- X
- Xall: $(EXE)getty
- X
- X$(EXE)getty: $(OBJS) $(AOBJS)
- X dcc $(OBJS) $(AOBJS) $(LIBS) -o %(left) -s
- X
- X$(OBJS) : $(SRCS)
- X dcc $(CFLAGS) %(right) -o %(left) -c
- X
- X$(AOBJS) : $(ASRCS)
- X asm $(AFLAGS) -o%(left) %(right)
- X
- END_OF_FILE
- if test 626 -ne `wc -c <'uucp2/src/getty/DMakefile.dcc'`; then
- echo shar: \"'uucp2/src/getty/DMakefile.dcc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/getty/DMakefile.dcc'
- fi
- if test -f 'uucp2/src/getty/icept.asm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/getty/icept.asm'\"
- else
- echo shar: Extracting \"'uucp2/src/getty/icept.asm'\" \(684 characters\)
- sed "s/^X//" >'uucp2/src/getty/icept.asm' <<'END_OF_FILE'
- X
- X ; ICEPT.ASM
- X ;
- X ; $Header: Beta:src/uucp/src/getty/RCS/icept.asm,v 1.1 90/02/02 12:13:28 dillon Exp Locker: dillon $
- X ;
- X ; Intercept OpenDevice() for serial.device and force
- X ; SERF_SHARED.
- X ;
- X ; A1 holds IOExtSer request ptr. D0-D1/A0-A1 are NOT
- X ; scratch.
- X ;
- X ; You CANNOT use A4 relative addressing since this routine
- X ; is called from a different context.
- X
- X include "exec/types.i"
- X include "devices/serial.i"
- X
- X section text,CODE
- X
- X xdef _AsmIntercept
- X xdef _AsmRoute
- X
- XRouteVector dc.l 0
- X
- X_AsmRoute: lea RouteVector(pc),A0
- X move.l 4(sp),(A0)
- X rts
- X
- X_AsmIntercept:
- X or.b #SERF_SHARED,IO_SERFLAGS(A1)
- X move.l RouteVector(pc),-(sp)
- X rts
- X
- X END
- X
- END_OF_FILE
- if test 684 -ne `wc -c <'uucp2/src/getty/icept.asm'`; then
- echo shar: \"'uucp2/src/getty/icept.asm'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/getty/icept.asm'
- fi
- if test -f 'uucp2/src/getty/syms.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/getty/syms.c'\"
- else
- echo shar: Extracting \"'uucp2/src/getty/syms.c'\" \(298 characters\)
- sed "s/^X//" >'uucp2/src/getty/syms.c' <<'END_OF_FILE'
- X
- X/*
- X * SYMS.C
- X *
- X * $Header: Beta:src/uucp/src/getty/RCS/syms.c,v 1.1 90/02/02 12:13:30 dillon Exp Locker: dillon $
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X *
- X * almost-dummy file for precomp symbol table gen.
- X */
- X
- X#include <exec/types.h>
- X#include <proto/all.h>
- X
- END_OF_FILE
- if test 298 -ne `wc -c <'uucp2/src/getty/syms.c'`; then
- echo shar: \"'uucp2/src/getty/syms.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/getty/syms.c'
- fi
- if test -f 'uucp2/src/getty/version.doc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/getty/version.doc'\"
- else
- echo shar: Extracting \"'uucp2/src/getty/version.doc'\" \(233 characters\)
- sed "s/^X//" >'uucp2/src/getty/version.doc' <<'END_OF_FILE'
- X
- X
- X $Header: Beta:src/uucp/src/getty/RCS/version.doc,v 1.1 90/02/02 12:13:37 dillon Exp Locker: dillon $
- X
- X GETTY
- X
- X .02 Getty now intercepts the OpenDevice vector for the
- X device in question and forces SERF_SHARED.
- X
- X .01
- X
- X .00
- X
- END_OF_FILE
- if test 233 -ne `wc -c <'uucp2/src/getty/version.doc'`; then
- echo shar: \"'uucp2/src/getty/version.doc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/getty/version.doc'
- fi
- if test ! -d 'uucp2/src/include' ; then
- echo shar: Creating directory \"'uucp2/src/include'\"
- mkdir 'uucp2/src/include'
- fi
- if test -f 'uucp2/src/include/expand_path.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/include/expand_path.h'\"
- else
- echo shar: Extracting \"'uucp2/src/include/expand_path.h'\" \(56 characters\)
- sed "s/^X//" >'uucp2/src/include/expand_path.h' <<'END_OF_FILE'
- X
- Xextern char *expand_path(const char *, const char *);
- X
- END_OF_FILE
- if test 56 -ne `wc -c <'uucp2/src/include/expand_path.h'`; then
- echo shar: \"'uucp2/src/include/expand_path.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/include/expand_path.h'
- fi
- if test -f 'uucp2/src/include/getfiles.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/include/getfiles.h'\"
- else
- echo shar: Extracting \"'uucp2/src/include/getfiles.h'\" \(246 characters\)
- sed "s/^X//" >'uucp2/src/include/getfiles.h' <<'END_OF_FILE'
- X
- X/*
- X * GETFILES.H
- X */
- X
- X#ifndef _GETFILES_H
- X#define _GETFILES_H
- X
- Xtypedef struct dir_list {
- X struct dir_list *next;
- X char name[1];
- X} dir_list;
- X
- X#ifndef _LIST_SORT_C
- Xextern void *list_sort(void *_list, int (*_cmp)(void *, void *));
- X#endif
- X
- X#endif
- X
- END_OF_FILE
- if test 246 -ne `wc -c <'uucp2/src/include/getfiles.h'`; then
- echo shar: \"'uucp2/src/include/getfiles.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/include/getfiles.h'
- fi
- if test -f 'uucp2/src/include/log.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/include/log.h'\"
- else
- echo shar: Extracting \"'uucp2/src/include/log.h'\" \(431 characters\)
- sed "s/^X//" >'uucp2/src/include/log.h' <<'END_OF_FILE'
- X
- X/*
- X * LOG.H
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X *
- X * $Header: Beta:src/uucp/src/include/RCS/log.h,v 1.1 90/02/02 11:40:06 dillon Exp Locker: dillon $
- X */
- X
- Xextern int LogToStdout;
- Xextern int LogLevel;
- Xextern char *LogProgram;
- Xextern char *LogHost;
- Xextern char *LogWho;
- Xextern char *LogFile;
- X
- X#define DEBUG(level, msg, moremsg) if (LogLevel > level) printf(msg, moremsg)
- X
- END_OF_FILE
- if test 431 -ne `wc -c <'uucp2/src/include/log.h'`; then
- echo shar: \"'uucp2/src/include/log.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/include/log.h'
- fi
- if test -f 'uucp2/src/include/protos.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/include/protos.h'\"
- else
- echo shar: Extracting \"'uucp2/src/include/protos.h'\" \(490 characters\)
- sed "s/^X//" >'uucp2/src/include/protos.h' <<'END_OF_FILE'
- X
- X/*
- X * AMIGA prototypes used by UUCP programs. This is where compiler
- X * dependancies go.
- X */
- X
- X#ifdef _DCC
- X
- Xextern void *AllocMem();
- Xextern void *GetMsg();
- Xextern void *CreatePort();
- Xextern void *OpenWindow();
- Xextern void *OpenLibrary();
- X
- Xextern void *RemHead();
- Xextern void *RemTail();
- X
- Xextern void *FindPort();
- Xextern void *SetFunction();
- X
- X#else
- X#ifdef MCH_AMIGA
- X#define __saveds
- X#include <functions.h> /* Manx */
- X#else
- X#include <proto/all.h> /* Lattice */
- X#endif
- X#endif
- END_OF_FILE
- if test 490 -ne `wc -c <'uucp2/src/include/protos.h'`; then
- echo shar: \"'uucp2/src/include/protos.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/include/protos.h'
- fi
- if test -f 'uucp2/src/include/pwd.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/include/pwd.h'\"
- else
- echo shar: Extracting \"'uucp2/src/include/pwd.h'\" \(644 characters\)
- sed "s/^X//" >'uucp2/src/include/pwd.h' <<'END_OF_FILE'
- X
- X/*
- X * PWD.H
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X *
- X * $Header: Beta:src/uucp/src/include/RCS/pwd.h,v 1.1 90/02/02 11:40:16 dillon Exp Locker: dillon $
- X */
- X
- Xstruct passwd {
- X char *pw_name;
- X char *pw_passwd;
- X long pw_uid;
- X long pw_gid;
- X long pw_quota;
- X char *pw_comment;
- X char *pw_gecos;
- X char *pw_dir;
- X char *pw_shell;
- X char *pw_shell_arg0; /* arg0 broken out from pw_shell */
- X char *pw_shell_argn; /* remaining args from pw_shell */
- X};
- X
- Xextern struct passwd *getpwuid();
- Xextern struct passwd *getpwnam();
- X
- Xextern char *PasswdFile;
- X
- END_OF_FILE
- if test 644 -ne `wc -c <'uucp2/src/include/pwd.h'`; then
- echo shar: \"'uucp2/src/include/pwd.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/include/pwd.h'
- fi
- if test -f 'uucp2/src/include/rcs.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/include/rcs.h'\"
- else
- echo shar: Extracting \"'uucp2/src/include/rcs.h'\" \(190 characters\)
- sed "s/^X//" >'uucp2/src/include/rcs.h' <<'END_OF_FILE'
- X
- X/*
- X * RCS.H
- X *
- X * RCSID macro
- X *
- X * $Header: Beta:src/uucp/src/include/RCS/rcs.h,v 1.1 90/02/02 11:40:08 dillon Exp Locker: dillon $";
- X */
- X
- X#define RCSID(id) static char *RCSId = id;
- X
- END_OF_FILE
- if test 190 -ne `wc -c <'uucp2/src/include/rcs.h'`; then
- echo shar: \"'uucp2/src/include/rcs.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/include/rcs.h'
- fi
- if test -f 'uucp2/src/include/sendmail_protos.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/include/sendmail_protos.h'\"
- else
- echo shar: Extracting \"'uucp2/src/include/sendmail_protos.h'\" \(280 characters\)
- sed "s/^X//" >'uucp2/src/include/sendmail_protos.h' <<'END_OF_FILE'
- X
- X/* MACHINE GENERATED */
- X
- X
- X/* sendmail.c */
- X
- X
- X/* parse.c */
- X
- XPrototype int ParseAddress(char *, char *, int);
- X
- X/* domain.c */
- X
- XPrototype DomainLookup(char *, int, char *, char *, char *);
- XPrototype CompareDomain(char **, short, char **, short);
- END_OF_FILE
- if test 280 -ne `wc -c <'uucp2/src/include/sendmail_protos.h'`; then
- echo shar: \"'uucp2/src/include/sendmail_protos.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/include/sendmail_protos.h'
- fi
- if test ! -d 'uucp2/src/include/sys' ; then
- echo shar: Creating directory \"'uucp2/src/include/sys'\"
- mkdir 'uucp2/src/include/sys'
- fi
- if test -f 'uucp2/src/include/sys/file.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/include/sys/file.h'\"
- else
- echo shar: Extracting \"'uucp2/src/include/sys/file.h'\" \(248 characters\)
- sed "s/^X//" >'uucp2/src/include/sys/file.h' <<'END_OF_FILE'
- X
- X/*
- X * FILE.H
- X *
- X * UNIX compat.
- X *
- X * $Header: Beta:src/uucp/src/include/sys/RCS/file.h,v 1.1 90/02/02 11:38:45 dillon Exp Locker: dillon $
- X *
- X */
- X
- X#include <fcntl.h>
- X
- X#define LOCK_EX 0x01
- X#define LOCK_UN 0x02
- X#define LOCK_NB 0x04
- X
- END_OF_FILE
- if test 248 -ne `wc -c <'uucp2/src/include/sys/file.h'`; then
- echo shar: \"'uucp2/src/include/sys/file.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/include/sys/file.h'
- fi
- if test -f 'uucp2/src/include/sys/stat.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/include/sys/stat.h'\"
- else
- echo shar: Extracting \"'uucp2/src/include/sys/stat.h'\" \(351 characters\)
- sed "s/^X//" >'uucp2/src/include/sys/stat.h' <<'END_OF_FILE'
- X
- X/*
- X * STAT.H
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X *
- X * Expand as applicable for library routines in uucp:src/lib
- X *
- X * $Header: Beta:src/uucp/src/include/sys/RCS/stat.h,v 1.1 90/02/02 11:38:48 dillon Exp Locker: dillon $
- X *
- X */
- X
- Xstruct stat {
- X long st_ino;
- X long st_mtime;
- X long st_ctime;
- X};
- X
- END_OF_FILE
- if test 351 -ne `wc -c <'uucp2/src/include/sys/stat.h'`; then
- echo shar: \"'uucp2/src/include/sys/stat.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/include/sys/stat.h'
- fi
- if test -f 'uucp2/src/include/sys/time.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/include/sys/time.h'\"
- else
- echo shar: Extracting \"'uucp2/src/include/sys/time.h'\" \(219 characters\)
- sed "s/^X//" >'uucp2/src/include/sys/time.h' <<'END_OF_FILE'
- X
- X/*
- X * SYS/TIME.H
- X *
- X * UNIX Compat
- X *
- X * $Header: Beta:src/uucp/src/include/sys/RCS/time.h,v 1.1 90/02/02 11:38:49 dillon Exp Locker: dillon $
- X *
- X */
- X
- X#ifndef SYS_TIME_H
- X#define SYS_TIME_H
- X#include <time.h>
- X#endif
- X
- END_OF_FILE
- if test 219 -ne `wc -c <'uucp2/src/include/sys/time.h'`; then
- echo shar: \"'uucp2/src/include/sys/time.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/include/sys/time.h'
- fi
- if test -f 'uucp2/src/include/sys/types.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/include/sys/types.h'\"
- else
- echo shar: Extracting \"'uucp2/src/include/sys/types.h'\" \(235 characters\)
- sed "s/^X//" >'uucp2/src/include/sys/types.h' <<'END_OF_FILE'
- X
- X/*
- X * SYS/TYPES.H
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X *
- X * UNIX compatibility?
- X *
- X * $Header: Beta:src/uucp/src/include/sys/RCS/types.h,v 1.1 90/02/02 11:38:51 dillon Exp Locker: dillon $
- X */
- X
- X
- END_OF_FILE
- if test 235 -ne `wc -c <'uucp2/src/include/sys/types.h'`; then
- echo shar: \"'uucp2/src/include/sys/types.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/include/sys/types.h'
- fi
- if test -f 'uucp2/src/include/version.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/include/version.h'\"
- else
- echo shar: Extracting \"'uucp2/src/include/version.h'\" \(846 characters\)
- sed "s/^X//" >'uucp2/src/include/version.h' <<'END_OF_FILE'
- X
- X/*
- X * VERSION.H
- X *
- X * $Header: Beta:src/uucp/src/include/RCS/version.h,v 1.1 90/02/02 12:15:46 dillon Exp Locker: dillon $
- X *
- X * Major version number (minor version numbers kept in subsidary
- X * files.
- X */
- X
- X#ifndef _CONFIG_H
- X#include "config.h"
- X#endif
- X
- X#define VERSION "V1.06D"
- X
- X#define COPYRIGHT \
- X "(C) Copyright 1987 by John Gilmore\n" \
- X "Copying and use of this program are controlled by the terms of the Free\n" \
- X "Software Foundation's GNU Emacs General Public License.\n" \
- X "Amiga Changes Copyright 1988 by William Loftus. All rights reserved.\n" \
- X "Additional chgs Copyright 1989 by Matthew Dillon, All Rights Reserved.\n"
- X
- X#define DCOPYRIGHT \
- X "(c)Copyright 1990, Matthew Dillon, all rights reserved\n"
- X
- X#define IDENT(subv) static char *Ident = "@($)" __FILE__ " " VERSION subv " " __DATE__
- X
- END_OF_FILE
- if test 846 -ne `wc -c <'uucp2/src/include/version.h'`; then
- echo shar: \"'uucp2/src/include/version.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/include/version.h'
- fi
- if test ! -d 'uucp2/src/lib' ; then
- echo shar: Creating directory \"'uucp2/src/lib'\"
- mkdir 'uucp2/src/lib'
- fi
- if test -f 'uucp2/src/lib/expand_path.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/expand_path.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/expand_path.c'\" \(753 characters\)
- sed "s/^X//" >'uucp2/src/lib/expand_path.c' <<'END_OF_FILE'
- X
- X/*
- X * EXPAND_PATH.C
- X *
- X * $Header: Beta:src/uucp/src/lib/RCS/lockfile.c,v 1.1 90/02/02 12:08:31 dillon Exp Locker: dillon $
- X */
- X
- X#include <stdio.h>
- X#include <string.h>
- X#include "config.h"
- X
- XPrototype char *expand_path(const char *, const char *);
- X
- Xchar *
- Xexpand_path(const char *path, const char *file_name)
- X{
- X register const char *p;
- X static char name[256];
- X
- X /*
- X * If the file_name is a full path name, use that.
- X */
- X
- X p = strchr(file_name, ':');
- X
- X if ((p != NULL) && (p != file_name))
- X return ((char *)file_name);
- X
- X /*
- X * If the path ends in ':' or '/', don't add separator!
- X */
- X
- X p = &path[strlen(path)-1];
- X sprintf(name, (*p == ':' || *p == '/') ? "%s%s" : "%s/%s", path, file_name);
- X return (name);
- X}
- X
- END_OF_FILE
- if test 753 -ne `wc -c <'uucp2/src/lib/expand_path.c'`; then
- echo shar: \"'uucp2/src/lib/expand_path.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/expand_path.c'
- fi
- if test -f 'uucp2/src/lib/getenv.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/getenv.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/getenv.c'\" \(1026 characters\)
- sed "s/^X//" >'uucp2/src/lib/getenv.c' <<'END_OF_FILE'
- X
- X/*
- X * GETENV.C
- X *
- X * $Header: Beta:src/uucp/src/lib/RCS/getenv.c,v 1.1 90/02/02 12:08:18 dillon Exp Locker: dillon $
- X *
- X * Lattice's screws up.
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X */
- X
- X#include "protos.h"
- X#include <stdio.h>
- X#include <stdlib.h>
- X#include <string.h>
- X#include "config.h"
- X
- XPrototype char *gettmpenv(const char *);
- XPrototype char *getenv(const char *);
- X
- Xchar *
- Xgettmpenv(id)
- Xconst char *id;
- X{
- X static char *buf;
- X static char *res = NULL;
- X long fh;
- X long len;
- X
- X buf = malloc(strlen(id) + 8);
- X sprintf(buf, "ENV:%s", id);
- X fh = Open(buf, 1005);
- X free(buf);
- X if (fh) {
- X Seek(fh, 0L, 1);
- X len = Seek(fh, 0L, -1);
- X if (len < 0) {
- X Close(fh);
- X return(NULL);
- X }
- X if (res)
- X free(res);
- X res = malloc(len + 1);
- X Read(fh, res, len);
- X Close(fh);
- X res[len] = 0;
- X return(res);
- X }
- X return(NULL);
- X}
- X
- Xchar *
- Xgetenv(id)
- Xconst char *id;
- X{
- X char *res = gettmpenv(id);
- X char *perm = NULL;
- X
- X if (res)
- X perm = strdup(res);
- X return(perm);
- X}
- X
- END_OF_FILE
- if test 1026 -ne `wc -c <'uucp2/src/lib/getenv.c'`; then
- echo shar: \"'uucp2/src/lib/getenv.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/getenv.c'
- fi
- if test -f 'uucp2/src/lib/getuser.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/getuser.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/getuser.c'\" \(809 characters\)
- sed "s/^X//" >'uucp2/src/lib/getuser.c' <<'END_OF_FILE'
- X
- X/*
- X * GETUSER.C
- X */
- X
- X#include <stdio.h>
- X#include <stdlib.h>
- X#include <fcntl.h>
- X#include "config.h"
- X
- XPrototype char *GetUserName(void);
- XPrototype char *GetRealName(void);
- X
- Xchar *
- XGetUserName()
- X{
- X static char username[64];
- X char *user;
- X
- X if (username[0])
- X return(username);
- X if ((user = getenv("USERNAME")) || (user = getenv("USER"))) {
- X strncpy(username, user, sizeof(username)-1);
- X username[sizeof(username)-1] = 0;
- X free(user);
- X return(username);
- X }
- X return(FindConfig(USERNAME));
- X}
- X
- X
- Xchar *
- XGetRealName()
- X{
- X static char realname[64];
- X char *real;
- X
- X if (realname[0])
- X return(realname);
- X if (real = getenv("REALNAME")) {
- X strncpy(realname, real, sizeof(realname)-1);
- X realname[sizeof(realname)-1] = 0;
- X free(real);
- X return(realname);
- X }
- X return(FindConfig(REALNAME));
- X}
- X
- END_OF_FILE
- if test 809 -ne `wc -c <'uucp2/src/lib/getuser.c'`; then
- echo shar: \"'uucp2/src/lib/getuser.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/getuser.c'
- fi
- if test -f 'uucp2/src/lib/isdir.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/isdir.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/isdir.c'\" \(1066 characters\)
- sed "s/^X//" >'uucp2/src/lib/isdir.c' <<'END_OF_FILE'
- X
- X/*
- X * IsDir
- X *
- X * Confirms that the specified path is a directory.
- X *
- X * Copyright 1990 by J. Gregory Noel, All Rights Reserved.
- X */
- X
- X#include <libraries/dos.h>
- X#include <stdio.h>
- X#include <stdlib.h>
- X#include "protos.h"
- X#include "version.h"
- X
- XIDENT(".01");
- X
- XPrototype int IsDir(const char *);
- X
- X/*
- X * The fib must be longword aligned and thus cannot be allocated
- X * on the stack or statically.
- X */
- X
- Xint
- XIsDir(const char *path)
- X{
- X BPTR lock;
- X struct FileInfoBlock *fib;
- X int r = 0;
- X
- X if (fib = malloc(sizeof(struct FileInfoBlock))) {
- X if (lock = Lock(path, ACCESS_READ)) {
- X if (Examine(lock, fib)) {
- X if (fib->fib_DirEntryType > 0)
- X r = 1;
- X }
- X UnLock(lock);
- X }
- X free(fib);
- X }
- X return(r);
- X}
- X
- X#ifdef TEST
- Xextern int main(int argc, char **argv);
- Xmain(int argc, char **argv)
- X{
- X char command[100];
- X
- X if (argc < 2) while (gets(command)) {
- X printf("IsDir(%s) returned %d\n", command, IsDir(command));
- X } else while (*++argv != NULL) {
- X printf("IsDir(%s) returned %d\n", *argv, IsDir(*argv));
- X }
- X return 0;
- X}
- X
- X#endif
- X
- X
- END_OF_FILE
- if test 1066 -ne `wc -c <'uucp2/src/lib/isdir.c'`; then
- echo shar: \"'uucp2/src/lib/isdir.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/isdir.c'
- fi
- if test -f 'uucp2/src/lib/lsys.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/lsys.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/lsys.c'\" \(857 characters\)
- sed "s/^X//" >'uucp2/src/lib/lsys.c' <<'END_OF_FILE'
- X
- X/*
- X * LSYS.C
- X *
- X * $Header: Beta:src/uucp/src/lib/RCS/lsys.c,v 1.1 90/02/02 12:08:20 dillon Exp Locker: dillon $
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X *
- X */
- X
- X#include <exec/types.h>
- X#include <stdio.h>
- X#include "config.h"
- X
- XPrototype int is_in_L_sys_file(const char *);
- X
- Xint
- Xis_in_L_sys_file(system_name)
- Xconst char *system_name;
- X{
- X static char buf[256];
- X static char system[128];
- X FILE *fd;
- X char *lsysFile = MakeConfigPath(UULIB, "L.sys");
- X
- X if (!(fd = fopen(lsysFile, "r"))) {
- X printf("Couldn't open %s\n", lsysFile);
- X exit(1);
- X }
- X
- X sprintf(system, "%s ", system_name);
- X
- X while (fgets(buf, sizeof buf, fd)) {
- X if (buf[0] == '#' || buf[0] == '\n')
- X continue;
- X if (strncmp(buf, system, strlen(system)) == 0) {
- X fclose(fd);
- X return TRUE;
- X }
- X }
- X fclose(fd);
- X return FALSE;
- X}
- X
- X
- END_OF_FILE
- if test 857 -ne `wc -c <'uucp2/src/lib/lsys.c'`; then
- echo shar: \"'uucp2/src/lib/lsys.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/lsys.c'
- fi
- if test -f 'uucp2/src/lib/makeproto.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/makeproto.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/makeproto.c'\" \(723 characters\)
- sed "s/^X//" >'uucp2/src/lib/makeproto.c' <<'END_OF_FILE'
- X
- X/*
- X * MAKEPROTO.C
- X */
- X
- X#include <stdio.h>
- X
- Xvoid ScanFile();
- X
- Xmain(ac, av)
- Xchar *av[];
- X{
- X short i;
- X
- X for (i = 1; i < ac; ++i) {
- X char *ptr = av[i];
- X if (*ptr != '-') {
- X ScanFile(ptr);
- X continue;
- X }
- X ptr += 2;
- X switch(ptr[-1]) {
- X case 'o':
- X freopen(ptr, "w", stdout);
- X printf("\n/* MACHINE GENERATED */\n\n");
- X break;
- X }
- X }
- X return(0);
- X}
- X
- Xvoid
- XScanFile(file)
- Xchar *file;
- X{
- X FILE *fi = fopen(file, "r");
- X char buf[512];
- X
- X if (fi == NULL) {
- X fprintf(stderr, "makeproto: couldn't open %s\n", file);
- X return;
- X }
- X printf("\n/* %-20s */\n\n", file);
- X while (fgets(buf, sizeof(buf), fi)) {
- X if (strncmp(buf, "Prototype", 9) == 0)
- X fputs(buf, stdout);
- X }
- X fclose(fi);
- X}
- X
- END_OF_FILE
- if test 723 -ne `wc -c <'uucp2/src/lib/makeproto.c'`; then
- echo shar: \"'uucp2/src/lib/makeproto.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/makeproto.c'
- fi
- if test -f 'uucp2/src/lib/mntreq.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/mntreq.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/mntreq.c'\" \(756 characters\)
- sed "s/^X//" >'uucp2/src/lib/mntreq.c' <<'END_OF_FILE'
- X
- X/*
- X * MNTREQ.C
- X *
- X * $Header: Beta:src/uucp/src/lib/RCS/mntreq.c,v 1.1 90/02/02 12:08:27 dillon Exp Locker: dillon $
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X */
- X
- X#include <exec/types.h>
- X#include <libraries/dos.h>
- X#include <libraries/dosextens.h>
- X#include <stdio.h>
- X#include "config.h"
- X
- Xtypedef struct Process PROC;
- X
- XPrototype void mountrequest(int);
- X
- Xvoid
- Xmountrequest(bool)
- Xint bool;
- X{
- X static APTR original_pr_WindowPtr = NULL;
- X register PROC *proc;
- X
- X proc = (PROC *)FindTask(0);
- X if (!bool && proc->pr_WindowPtr != (APTR)-1) {
- X original_pr_WindowPtr = proc->pr_WindowPtr;
- X proc->pr_WindowPtr = (APTR)-1;
- X }
- X if (bool && proc->pr_WindowPtr == (APTR)-1)
- X proc->pr_WindowPtr = original_pr_WindowPtr;
- X}
- X
- END_OF_FILE
- if test 756 -ne `wc -c <'uucp2/src/lib/mntreq.c'`; then
- echo shar: \"'uucp2/src/lib/mntreq.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/mntreq.c'
- fi
- if test -f 'uucp2/src/lib/seq.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/seq.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/seq.c'\" \(865 characters\)
- sed "s/^X//" >'uucp2/src/lib/seq.c' <<'END_OF_FILE'
- X
- X/*
- X * SEQ.C
- X *
- X * $Header: Beta:src/uucp/src/lib/RCS/seq.c,v 1.1 90/02/02 12:08:40 dillon Exp Locker: dillon $
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X *
- X * Returns a unique sequence number
- X */
- X
- X#include <stdio.h>
- X#include "config.h"
- X
- XPrototype int GetSequence(int);
- X
- Xint
- XGetSequence(bump)
- Xint bump;
- X{
- X char *seqLockFile = "seq";
- X FILE *fp;
- X char *fileName = MakeConfigPath(UULIB, "seq");
- X int seq;
- X char buf[32];
- X
- X LockFile(seqLockFile);
- X fp = fopen(fileName, "r");
- X if (fp) {
- X fgets(buf, 32, fp);
- X seq = atoi(buf);
- X fclose(fp);
- X } else {
- X perror(fileName);
- X seq = -1;
- X }
- X
- X if (bump && seq >= 0) {
- X fp = fopen(fileName, "w");
- X if (fp) {
- X fprintf(fp,"%d", seq + bump);
- X fclose(fp);
- X } else {
- X perror(fileName);
- X seq = -1;
- X }
- X }
- X UnLockFile(seqLockFile);
- X return(seq);
- X}
- X
- END_OF_FILE
- if test 865 -ne `wc -c <'uucp2/src/lib/seq.c'`; then
- echo shar: \"'uucp2/src/lib/seq.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/seq.c'
- fi
- if test -f 'uucp2/src/lib/setstdin.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/setstdin.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/setstdin.c'\" \(990 characters\)
- sed "s/^X//" >'uucp2/src/lib/setstdin.c' <<'END_OF_FILE'
- X
- X/*
- X * SETSTDIN.C
- X *
- X * $Header: Beta:src/uucp/src/lib/RCS/setstdin.c,v 1.1 90/02/02 12:08:28 dillon Exp Locker: dillon $
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X *
- X * Sets stdin, stdout, and stderr to UUSER: handler
- X */
- X
- X#include <stdio.h>
- X#include "config.h"
- X
- XPrototype int SetStdin(int, char **);
- X
- Xint
- XSetStdin(ac, av)
- Xint ac;
- Xchar **av;
- X{
- X short i;
- X short getty = 0; /* from getty */
- X char *device = "serial.device"; /* device name */
- X long unit = 0; /* unit no. */
- X char buf[64];
- X FILE *f1, *f2, *f3;
- X
- X for (i = 1; i < ac; ++i) {
- X char *ptr = av[i];
- X if (*ptr != '-')
- X continue;
- X if (ptr[1] == 'D')
- X device = av[++i];
- X if (ptr[1] == 'U')
- X unit = atoi(av[++i]);
- X if (ptr[1] == 'G')
- X getty = 1;
- X }
- X sprintf(buf, "UUSER:%s/%d/R1000G%d", device, unit, getty);
- X f1 = freopen(buf, "r", stdin);
- X f2 = freopen(buf, "w+", stdout);
- X f3 = freopen(buf, "w+", stderr);
- X return(f1 && f2 && f3);
- X}
- X
- END_OF_FILE
- if test 990 -ne `wc -c <'uucp2/src/lib/setstdin.c'`; then
- echo shar: \"'uucp2/src/lib/setstdin.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/setstdin.c'
- fi
- if test -f 'uucp2/src/lib/sleep.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/sleep.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/sleep.c'\" \(337 characters\)
- sed "s/^X//" >'uucp2/src/lib/sleep.c' <<'END_OF_FILE'
- X
- X/*
- X * SLEEP.C
- X *
- X * $Header: Beta:src/uucp/src/lib/RCS/sleep.c,v 1.1 90/02/02 12:08:34 dillon Exp Locker: dillon $
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X *
- X */
- X
- X#include <stdio.h>
- X#include "protos.h"
- X#include "config.h"
- X
- XPrototype void sleep(int);
- X
- Xvoid
- Xsleep(n)
- Xint n;
- X{
- X if (n)
- X Delay(50*n);
- X}
- X
- END_OF_FILE
- if test 337 -ne `wc -c <'uucp2/src/lib/sleep.c'`; then
- echo shar: \"'uucp2/src/lib/sleep.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/sleep.c'
- fi
- if test -f 'uucp2/src/lib/string.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/string.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/string.c'\" \(868 characters\)
- sed "s/^X//" >'uucp2/src/lib/string.c' <<'END_OF_FILE'
- X
- X/*
- X * STRING.C
- X *
- X * $Header: Beta:src/uucp/src/lib/RCS/string.c,v 1.1 90/02/02 12:08:41 dillon Exp Locker: dillon $
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X */
- X
- X#include <stdio.h>
- X#include "config.h"
- X
- XPrototype int strcmpi(const char *, const char *);
- XPrototype int strncmpi(const char *, const char *, int);
- X
- Xint
- Xstrcmpi(s, d)
- Xconst char *s;
- Xconst char *d;
- X{
- X short c1, c2;
- X for (;;) {
- X c1 = *s++;
- X c2 = *d++;
- X
- X if (c1 == 0 || c2 == 0)
- X return(c1 || c2); /* 0= both are 0 */
- X if (((c1 ^ c2) | 0x20) != 0x20)
- X return(1);
- X }
- X return(0);
- X}
- X
- Xint
- Xstrncmpi(s, d, n)
- Xconst char *s;
- Xconst char *d;
- Xint n;
- X{
- X short c1, c2;
- X while (n--) {
- X c1 = *s++;
- X c2 = *d++;
- X
- X if (c1 == 0 || c2 == 0)
- X return(c1 || c2); /* 0= both are 0 */
- X if (((c1 ^ c2) | 0x20) != 0x20)
- X return(1);
- X }
- X return(0);
- X}
- X
- END_OF_FILE
- if test 868 -ne `wc -c <'uucp2/src/lib/string.c'`; then
- echo shar: \"'uucp2/src/lib/string.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/string.c'
- fi
- if test -f 'uucp2/src/lib/syms.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/syms.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/syms.c'\" \(155 characters\)
- sed "s/^X//" >'uucp2/src/lib/syms.c' <<'END_OF_FILE'
- X
- X/*
- X * $Header: Beta:src/uucp/src/lib/RCS/syms.c,v 1.1 90/02/02 12:08:23 dillon Exp Locker: dillon $
- X */
- X
- X#include <exec/types.h>
- X#include <proto/all.h>
- X
- END_OF_FILE
- if test 155 -ne `wc -c <'uucp2/src/lib/syms.c'`; then
- echo shar: \"'uucp2/src/lib/syms.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/syms.c'
- fi
- if test -f 'uucp2/src/lib/tmpfile.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/tmpfile.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/tmpfile.c'\" \(570 characters\)
- sed "s/^X//" >'uucp2/src/lib/tmpfile.c' <<'END_OF_FILE'
- X
- X/*
- X * TMPFILE.C
- X *
- X * $Header: Beta:src/uucp/src/lib/RCS/tmpfile.c,v 1.1 90/02/02 12:08:29 dillon Exp Locker: dillon $
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X *
- X * create a temporary file
- X *
- X * template limited to 16 chars
- X */
- X
- X#include <stdio.h>
- X#include "config.h"
- X
- XPrototype char *TmpFileName(const char *);
- X
- Xchar *
- XTmpFileName(template)
- Xconst char *template;
- X{
- X static char Template[256];
- X static unsigned short Idx;
- X
- X sprintf(Template, "%s-%08lx.TMP", template, (long)FindTask(NULL) + Idx++);
- X return(Template);
- X}
- X
- END_OF_FILE
- if test 570 -ne `wc -c <'uucp2/src/lib/tmpfile.c'`; then
- echo shar: \"'uucp2/src/lib/tmpfile.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/tmpfile.c'
- fi
- if test -f 'uucp2/src/lib/validuser.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/lib/validuser.c'\"
- else
- echo shar: Extracting \"'uucp2/src/lib/validuser.c'\" \(534 characters\)
- sed "s/^X//" >'uucp2/src/lib/validuser.c' <<'END_OF_FILE'
- X
- X/*
- X * VALIDUSER.C
- X *
- X * $Header: Beta:src/uucp/src/lib/RCS/validuser.c,v 1.1 90/02/02 12:08:42 dillon Exp Locker: dillon $
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X */
- X
- X#include "stdio.h"
- X#include "config.h"
- X
- XPrototype int ValidUser(const char *);
- X
- Xint
- XValidUser(str)
- Xconst char *str;
- X{
- X if (*str == '|' || *str == '@')
- X return(0);
- X while (*str) {
- X if (*str < 32 || *str > 126)
- X return(0);
- X if (*str == ':')
- X return(0);
- X if (*str == '/')
- X return(0);
- X ++str;
- X }
- X return(1);
- X}
- X
- END_OF_FILE
- if test 534 -ne `wc -c <'uucp2/src/lib/validuser.c'`; then
- echo shar: \"'uucp2/src/lib/validuser.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/lib/validuser.c'
- fi
- if test -f 'uucp2/src/mkall' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/mkall'\"
- else
- echo shar: Extracting \"'uucp2/src/mkall'\" \(328 characters\)
- sed "s/^X//" >'uucp2/src/mkall' <<'END_OF_FILE'
- X
- Xcd lib
- Xecho lib
- Xdmake
- Xcd /dnews
- Xecho dnews
- Xdmake
- Xcd /anews
- Xecho anews
- Xdmake
- Xcd /news
- Xecho news
- Xdmake
- Xcd /unix
- Xecho unix
- Xdmake
- Xcd /uucico
- Xecho uucico
- Xdmake
- Xcd /util
- Xecho util
- Xdmake
- Xcd /gutil
- Xecho gutil
- Xdmake
- Xcd /dmail
- Xecho dmail
- Xdmake
- Xcd /uuser
- Xecho uuser
- Xdmake
- Xcd /getty
- Xecho getty
- Xdmake
- Xcd /sendmail
- Xecho sendmail
- Xdmake
- Xcd /
- X
- END_OF_FILE
- if test 328 -ne `wc -c <'uucp2/src/mkall'`; then
- echo shar: \"'uucp2/src/mkall'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/mkall'
- fi
- if test -f 'uucp2/src/mkall-dcc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/mkall-dcc'\"
- else
- echo shar: Extracting \"'uucp2/src/mkall-dcc'\" \(532 characters\)
- sed "s/^X//" >'uucp2/src/mkall-dcc' <<'END_OF_FILE'
- X
- Xcd lib
- Xecho lib
- Xdmake -f DMakefile.dcc
- Xcd /dnews
- Xecho dnews
- Xdmake -f DMakefile.dcc
- Xcd /anews
- Xecho anews
- Xdmake -f DMakefile.dcc
- Xcd /news
- Xecho news
- Xdmake -f DMakefile.dcc
- Xcd /unix
- Xecho unix
- Xdmake -f DMakefile.dcc
- Xcd /uucico
- Xecho uucico
- Xdmake -f DMakefile.dcc
- Xcd /util
- Xecho util
- Xdmake -f DMakefile.dcc
- Xcd /gutil
- Xecho gutil
- Xdmake -f DMakefile.dcc
- Xcd /dmail
- Xecho dmail
- Xdmake -f DMakefile.dcc
- Xcd /uuser
- Xecho uuser
- Xdmake -f DMakefile.dcc
- Xcd /getty
- Xecho getty
- Xdmake -f DMakefile.dcc
- Xcd /sendmail
- Xecho sendmail
- Xdmake -f DMakefile.dcc
- Xcd /
- X
- END_OF_FILE
- if test 532 -ne `wc -c <'uucp2/src/mkall-dcc'`; then
- echo shar: \"'uucp2/src/mkall-dcc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/mkall-dcc'
- fi
- if test ! -d 'uucp2/src/news' ; then
- echo shar: Creating directory \"'uucp2/src/news'\"
- mkdir 'uucp2/src/news'
- fi
- if test -f 'uucp2/src/news/DMakefile' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/news/DMakefile'\"
- else
- echo shar: Extracting \"'uucp2/src/news/DMakefile'\" \(504 characters\)
- sed "s/^X//" >'uucp2/src/news/DMakefile' <<'END_OF_FILE'
- X
- XOD= ltmp:uucp/
- X
- XRSRCS= rnews.c
- XPSRCS= postnews.c
- X
- XROBJS= $(RSRCS:"*.c":"$(OD)*.o")
- XPOBJS= $(PSRCS:"*.c":"$(OD)*.o")
- X
- XPEXE= uucp:c/postnews
- XREXE= uucp:c/rnews
- X
- XCFLAGS = -iuucp:src/include/ -cq -v -b0
- XLIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
- X
- Xall : $(PEXE) $(REXE)
- X
- X$(PEXE) : $(POBJS)
- X blink from lib:c.o $(POBJS) to %(left) lib $(LIBS)
- X
- X$(REXE) : $(ROBJS)
- X blink from lib:c.o $(ROBJS) to %(left) lib $(LIBS)
- X
- X$(POBJS) $(ROBJS) : $(PSRCS) $(RSRCS)
- X lc $(CFLAGS) -o%(left) %(right)
- X
- X
- END_OF_FILE
- if test 504 -ne `wc -c <'uucp2/src/news/DMakefile'`; then
- echo shar: \"'uucp2/src/news/DMakefile'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/news/DMakefile'
- fi
- if test -f 'uucp2/src/news/DMakefile.dcc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/news/DMakefile.dcc'\"
- else
- echo shar: Extracting \"'uucp2/src/news/DMakefile.dcc'\" \(493 characters\)
- sed "s/^X//" >'uucp2/src/news/DMakefile.dcc' <<'END_OF_FILE'
- X
- X# DMakefile for DCC (dillon's compiler)
- X
- XOD= dtmp:uucp/
- X
- XRSRCS= rnews.c
- XPSRCS= postnews.c
- X
- XROBJS= $(RSRCS:"*.c":"$(OD)*.o")
- XPOBJS= $(PSRCS:"*.c":"$(OD)*.o")
- X
- XPEXE= uucp:c/postnews
- XREXE= uucp:c/rnews
- X
- XCFLAGS = -I uucp:src/include/
- XLIBS= dtmp:uucp/lib/uucp.lib
- X
- Xall : $(PEXE) $(REXE)
- X
- X$(PEXE) : $(POBJS)
- X dcc $(POBJS) $(LIBS) -o %(left) -s -r
- X
- X$(REXE) : $(ROBJS)
- X dcc $(ROBJS) $(LIBS) -o %(left) -s -r
- X
- X$(POBJS) $(ROBJS) : $(PSRCS) $(RSRCS)
- X dcc $(CFLAGS) %(right) -o %(left) -r -c
- X
- END_OF_FILE
- if test 493 -ne `wc -c <'uucp2/src/news/DMakefile.dcc'`; then
- echo shar: \"'uucp2/src/news/DMakefile.dcc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/news/DMakefile.dcc'
- fi
- if test -f 'uucp2/src/news/version.doc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/news/version.doc'\"
- else
- echo shar: Extracting \"'uucp2/src/news/version.doc'\" \(995 characters\)
- sed "s/^X//" >'uucp2/src/news/version.doc' <<'END_OF_FILE'
- X
- XRNEWS:
- X .04 (1.06)
- X RNewsDebug config variable support added to make debugging
- X news easy.
- X
- X .03 (1.06)
- X rnews extensively rewritten to increase efficiency.
- X The sequence number now rolls over at 32767->0
- X
- X .02 (1.05) uses library routines to obtain various directories
- X and files.
- X
- XANEWS:
- X .03 (1.06)
- X Now handles r/Reply and f/Followup properly. Fixed memory
- X free bug in followup.
- X
- X Tries to use <user>.signature file before .signature in
- X your UULIB:
- X
- X .02
- X Now handles reply,Reply, and posting
- X
- X Now accepts -r rows -c columns arguments to command
- X line to set window size (does not yet do so automatically)
- X
- X Now accepts -p group on the command line to explicitly
- X post to a newsgroup.
- X
- X 'q' and 'Q' bump you back to the top level instead of
- X exiting.
- X
- X 'Q' does not delete any articles when you bump back.
- X
- X .01 1.03D release
- X
- XPOSTNEWS:
- X .03
- X Rewritten completely w/ new options to support third-party
- X news handlers (and DNews)
- X
- X .02
- X First numbered release 1.05D
- X
- END_OF_FILE
- if test 995 -ne `wc -c <'uucp2/src/news/version.doc'`; then
- echo shar: \"'uucp2/src/news/version.doc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/news/version.doc'
- fi
- if test ! -d 'uucp2/src/sendmail' ; then
- echo shar: Creating directory \"'uucp2/src/sendmail'\"
- mkdir 'uucp2/src/sendmail'
- fi
- if test -f 'uucp2/src/sendmail/DMakefile' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/sendmail/DMakefile'\"
- else
- echo shar: Extracting \"'uucp2/src/sendmail/DMakefile'\" \(750 characters\)
- sed "s/^X//" >'uucp2/src/sendmail/DMakefile' <<'END_OF_FILE'
- X
- X#
- X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X#
- X# $Header: Beta:src/uucp/src/sendmail/RCS/DMakefile,v 1.1 90/02/02 12:14:58 dillon Exp Locker: dillon $
- X#
- X
- XOD= ltmp:uucp/
- XSYMS= uucp:src/lib/all.m
- XSRCS= sendmail.c parse.c domain.c
- XOBJS= $(SRCS:"*.c":"$(OD)*.o")
- XCFLAGS= -iuucp:src/include/ -cim -cq
- XEXE= uucp:c/
- XLIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
- XPROTOS= uucp:src/include/sendmail_protos.h
- XMAKEPROTO= ltmp:uucp/lib/makeproto
- X
- Xall: $(PROTOS) $(EXE)sendmail
- X
- X$(EXE)sendmail: $(OBJS)
- X blink from lib:cres.o $(OBJS) SC SD TO %(left) lib $(LIBS)
- X copy $(EXE)sendmail $(EXE)rmail
- X
- X$(OBJS) : $(SRCS)
- X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
- X
- X$(PROTOS) : $(SRCS)
- X $(MAKEPROTO) -o%(left) %(right)
- X
- END_OF_FILE
- if test 750 -ne `wc -c <'uucp2/src/sendmail/DMakefile'`; then
- echo shar: \"'uucp2/src/sendmail/DMakefile'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/sendmail/DMakefile'
- fi
- if test -f 'uucp2/src/sendmail/DMakefile.dcc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/sendmail/DMakefile.dcc'\"
- else
- echo shar: Extracting \"'uucp2/src/sendmail/DMakefile.dcc'\" \(668 characters\)
- sed "s/^X//" >'uucp2/src/sendmail/DMakefile.dcc' <<'END_OF_FILE'
- X
- X#
- X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X#
- X# $Header: Beta:src/uucp/src/sendmail/RCS/DMakefile,v 1.1 90/02/02 12:14:58 dillon Exp Locker: dillon $
- X#
- X
- XOD= dtmp:uucp/
- XSRCS= sendmail.c parse.c domain.c
- XOBJS= $(SRCS:"*.c":"$(OD)*.o")
- XCFLAGS= -I uucp:src/include/
- XEXE= uucp:c/
- XLIBS= dtmp:uucp/lib/uucp.lib
- XPROTOS= uucp:src/include/sendmail_protos.h
- XMAKEPROTO= dtmp:uucp/lib/makeproto
- X
- Xall: $(PROTOS) $(EXE)sendmail
- X
- X$(EXE)sendmail: $(OBJS)
- X dcc $(OBJS) -o %(left) $(LIBS) -s -r
- X copy $(EXE)sendmail $(EXE)rmail
- X
- X$(OBJS) : $(SRCS)
- X dcc $(CFLAGS) %(right) -o %(left) -c -r
- X
- X$(PROTOS) : $(SRCS)
- X $(MAKEPROTO) -o%(left) %(right)
- X
- END_OF_FILE
- if test 668 -ne `wc -c <'uucp2/src/sendmail/DMakefile.dcc'`; then
- echo shar: \"'uucp2/src/sendmail/DMakefile.dcc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/sendmail/DMakefile.dcc'
- fi
- if test -f 'uucp2/src/sendmail/defs.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/sendmail/defs.h'\"
- else
- echo shar: Extracting \"'uucp2/src/sendmail/defs.h'\" \(335 characters\)
- sed "s/^X//" >'uucp2/src/sendmail/defs.h' <<'END_OF_FILE'
- X
- X/*
- X * DEFS.H
- X */
- X
- X#include <exec/types.h>
- X#include <exec/lists.h>
- X#include <stdio.h>
- X#include <stdlib.h>
- X#include <string.h>
- X#include "version.h"
- X#include "sendmail_protos.h"
- X
- X#ifndef LATTICE
- Xextern void AddTail(void *, void *);
- Xextern void AddHead(void *, void *);
- Xextern void *RemHead(void *);
- Xextern void *RemTail(void *);
- X#endif
- END_OF_FILE
- if test 335 -ne `wc -c <'uucp2/src/sendmail/defs.h'`; then
- echo shar: \"'uucp2/src/sendmail/defs.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/sendmail/defs.h'
- fi
- if test -f 'uucp2/src/sendmail/version.doc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/sendmail/version.doc'\"
- else
- echo shar: Extracting \"'uucp2/src/sendmail/version.doc'\" \(725 characters\)
- sed "s/^X//" >'uucp2/src/sendmail/version.doc' <<'END_OF_FILE'
- X
- X
- X $Header: Beta:src/uucp/src/sendmail/RCS/version.doc,v 1.1 90/02/02 12:15:06 dillon Exp Locker: dillon $
- X
- XSENDMAIL:
- X
- X .06
- X Uses USERNAME and REALNAME ENV: variables if they exist, else
- X falls back to Config entries.
- X
- X .05
- X Intermediate
- X
- X .04
- X Runs program specified by 'MailReadyCmd' Config entry when
- X local mail sent.
- X
- X Fixes local mail. sending mail to yourself 'myself!user' instead
- X of just 'user' now works properly. Also fixes bug in some
- X versions of UUPC (e.g. Mac UUPC) that do not remove the
- X destination machine from the rmail line.
- X
- X Without this fix improperly formatted rmail lines from other
- X UUPCs will route through our default route instead of to us.
- X
- X .03
- X
- END_OF_FILE
- if test 725 -ne `wc -c <'uucp2/src/sendmail/version.doc'`; then
- echo shar: \"'uucp2/src/sendmail/version.doc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/sendmail/version.doc'
- fi
- if test ! -d 'uucp2/src/unix' ; then
- echo shar: Creating directory \"'uucp2/src/unix'\"
- mkdir 'uucp2/src/unix'
- fi
- if test ! -d 'uucp2/src/util' ; then
- echo shar: Creating directory \"'uucp2/src/util'\"
- mkdir 'uucp2/src/util'
- fi
- if test -f 'uucp2/src/util/DMakefile' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/util/DMakefile'\"
- else
- echo shar: Extracting \"'uucp2/src/util/DMakefile'\" \(928 characters\)
- sed "s/^X//" >'uucp2/src/util/DMakefile' <<'END_OF_FILE'
- X
- X# DMakefile
- X#
- X# $Header: Beta:src/uucp/src/MUtil/RCS/DMakefile,v 1.3 90/04/03 20:44:46 dillon Exp Locker: dillon $
- X#
- X
- XOD=ltmp:uucp/
- XSRCS= from.c man.c expandm.c trimfile.c inform.c uusplit.c uident.c trimnews.c
- XOBJS= $(SRCS:"*.c":"$(OD)*.o")
- XSYMS= uucp:src/lib/all.m
- XCFLAGS= -iuucp:src/include/ -iuucp:src/ -cq -v
- XEXE= uucp:c/
- XLIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
- X
- XBLINK= blink from lib:cres.o %(right) TO %(left) SC SD LIB $(LIBS)
- X
- Xall: $(EXE)expand $(EXE)from $(EXE)man $(EXE)expandm $(EXE)trimfile \
- X $(EXE)inform $(EXE)uusplit $(EXE)uident
- X
- X$(EXE)inform: $(OD)inform.o
- X $(BLINK)
- X
- X$(EXE)trimfile: $(OD)trimfile.o
- X $(BLINK)
- X
- X$(EXE)expandm: $(OD)expandm.o
- X $(BLINK)
- X
- X$(EXE)from: $(OD)from.o
- X $(BLINK)
- X
- X$(EXE)man: $(OD)man.o
- X $(BLINK)
- X
- X$(EXE)uusplit: $(OD)uusplit.o
- X $(BLINK)
- X
- X$(EXE)uident: $(OD)uident.o
- X $(BLINK)
- X
- X$(OBJS) : $(SRCS)
- X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
- X
- END_OF_FILE
- if test 928 -ne `wc -c <'uucp2/src/util/DMakefile'`; then
- echo shar: \"'uucp2/src/util/DMakefile'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/util/DMakefile'
- fi
- if test -f 'uucp2/src/util/DMakefile.dcc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/util/DMakefile.dcc'\"
- else
- echo shar: Extracting \"'uucp2/src/util/DMakefile.dcc'\" \(910 characters\)
- sed "s/^X//" >'uucp2/src/util/DMakefile.dcc' <<'END_OF_FILE'
- X
- X# DMakefile
- X#
- X# $Header: Beta:src/uucp/src/MUtil/RCS/DMakefile,v 1.3 90/04/03 20:44:46 dillon Exp Locker: dillon $
- X#
- X
- XOD=dtmp:uucp/
- XSRCS= from.c man.c expandm.c trimfile.c inform.c uusplit.c uident.c trimnews.c
- XOBJS= $(SRCS:"*.c":"$(OD)*.o")
- XCFLAGS= -I uucp:src/include/ -I uucp:src/
- XEXE= uucp:c/
- XLIBS= dtmp:uucp/lib/uucp.lib
- X
- XDLINK= dcc %(right) $(LIBS) -o %(left) -r -s
- X
- Xall: $(EXE)expand $(EXE)from $(EXE)man $(EXE)expandm $(EXE)trimfile \
- X $(EXE)inform $(EXE)uusplit $(EXE)uident $(EXE)trimnews
- X
- X$(EXE)inform: $(OD)inform.o
- X $(DLINK)
- X
- X$(EXE)trimnews: $(OD)trimnews.o
- X $(DLINK)
- X
- X$(EXE)trimfile: $(OD)trimfile.o
- X $(DLINK)
- X
- X$(EXE)expandm: $(OD)expandm.o
- X $(DLINK)
- X
- X$(EXE)from: $(OD)from.o
- X $(DLINK)
- X
- X$(EXE)man: $(OD)man.o
- X $(DLINK)
- X
- X$(EXE)uusplit: $(OD)uusplit.o
- X $(DLINK)
- X
- X$(EXE)uident: $(OD)uident.o
- X $(DLINK)
- X
- X$(OBJS) : $(SRCS)
- X dcc $(CFLAGS) %(right) -o %(left) -c -r
- X
- END_OF_FILE
- if test 910 -ne `wc -c <'uucp2/src/util/DMakefile.dcc'`; then
- echo shar: \"'uucp2/src/util/DMakefile.dcc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/util/DMakefile.dcc'
- fi
- if test -f 'uucp2/src/util/expandm.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/util/expandm.c'\"
- else
- echo shar: Extracting \"'uucp2/src/util/expandm.c'\" \(578 characters\)
- sed "s/^X//" >'uucp2/src/util/expandm.c' <<'END_OF_FILE'
- X
- X/*
- X * EXPANDM.C expands alias via uulib:Aliases and prints
- X * results
- X *
- X * $Header: Beta:src/uucp/src/MUtil/RCS/expandm.c,v 1.1 90/02/02 12:11:56 dillon Exp Locker: dillon $
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X *
- X * EXPANDM alias
- X */
- X
- X#include <stdio.h>
- X#include "config.h"
- X
- Xmain(ac, av)
- Xchar *av[];
- X{
- X short i;
- X void callBack();
- X
- X LoadAliases();
- X for (i = 1; i < ac; ++i) {
- X printf("%s:", av[i]);
- X UserAliasList(av[i], callBack);
- X }
- X puts("");
- X}
- X
- Xvoid
- XcallBack(name)
- Xchar *name;
- X{
- X printf(" %s", name);
- X}
- X
- END_OF_FILE
- if test 578 -ne `wc -c <'uucp2/src/util/expandm.c'`; then
- echo shar: \"'uucp2/src/util/expandm.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/util/expandm.c'
- fi
- if test -f 'uucp2/src/util/uident.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/util/uident.c'\"
- else
- echo shar: Extracting \"'uucp2/src/util/uident.c'\" \(1066 characters\)
- sed "s/^X//" >'uucp2/src/util/uident.c' <<'END_OF_FILE'
- X
- X/*
- X * UIDENT.C
- X *
- X * $Header: Beta:src/uucp/src/GUtil/RCS/uident.c,v 1.1 90/02/02 11:58:56 dillon Exp Locker: dillon $
- X *
- X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X *
- X * UIDENT files...
- X *
- X * Searches for @($) <string> \0 and prints out
- X */
- X
- X#include <stdio.h>
- X#include <fcntl.h>
- X#include "version.h"
- X
- XIDENT(".02");
- X
- Xvoid FindIdent(char *, int);
- X
- Xchar Buf[8192];
- X
- Xvoid
- Xmain(ac, av)
- Xchar **av;
- X{
- X short i;
- X int fd;
- X
- X for (i = 1; i < ac; ++i) {
- X fd = open(av[i], O_RDONLY);
- X if (fd > 0)
- X FindIdent(av[i], fd);
- X else
- X printf("%-15s (unable to open)", av[i]);
- X puts("");
- X fflush(stdout);
- X if (fd > 0)
- X close(fd);
- X }
- X}
- X
- Xvoid
- XFindIdent(file, fd)
- Xchar *file;
- Xint fd;
- X{
- X long n;
- X long i;
- X long x = 0;
- X
- X while ((n = read(fd, Buf + x, sizeof(Buf) - x)) > 0) {
- X n += x;
- X for (i = n - 128; i >= 0; --i) {
- X if (Buf[i] == '@' && Buf[i+1] == '(' && Buf[i+2] == '$' && Buf[i+3] == ')') {
- X printf("%-15s %s\n", file, Buf + i);
- X }
- X }
- X x = 128;
- X if (n < x)
- X x = n;
- X movmem(Buf + n - x, Buf, x);
- X }
- X}
- X
- END_OF_FILE
- if test 1066 -ne `wc -c <'uucp2/src/util/uident.c'`; then
- echo shar: \"'uucp2/src/util/uident.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/util/uident.c'
- fi
- if test -f 'uucp2/src/util/version.doc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/util/version.doc'\"
- else
- echo shar: Extracting \"'uucp2/src/util/version.doc'\" \(192 characters\)
- sed "s/^X//" >'uucp2/src/util/version.doc' <<'END_OF_FILE'
- X
- X VERSION.DOC
- X
- XFROM.C
- X .02 Adds \n to each output line (oops!)
- X
- X .01 Prints message # and formats better
- X
- X .00
- X
- XUIDENT.C
- X .02 Properly handles multiple idents in a single executable
- X
- X .01
- X
- END_OF_FILE
- if test 192 -ne `wc -c <'uucp2/src/util/version.doc'`; then
- echo shar: \"'uucp2/src/util/version.doc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/util/version.doc'
- fi
- if test ! -d 'uucp2/src/uucico' ; then
- echo shar: Creating directory \"'uucp2/src/uucico'\"
- mkdir 'uucp2/src/uucico'
- fi
- if test -f 'uucp2/src/uucico/includes.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/uucico/includes.h'\"
- else
- echo shar: Extracting \"'uucp2/src/uucico/includes.h'\" \(631 characters\)
- sed "s/^X//" >'uucp2/src/uucico/includes.h' <<'END_OF_FILE'
- X
- X/*
- X * INCLUDES.H
- X *
- X * $Header: Beta:src/uucp/src/uucico/RCS/includes.h,v 1.1 90/02/02 11:55:53 dillon Exp Locker: dillon $
- X */
- X
- X#define NAMESIZE 256
- X
- X#include <exec/types.h>
- X#include <fcntl.h>
- X#include <exec/exec.h>
- X#include <devices/serial.h>
- X#include <devices/keymap.h>
- X#include <devices/timer.h>
- X#include <libraries/dos.h>
- X
- X#include "protos.h" /* other system protos */
- X
- X#include <stdio.h>
- X#include <stdlib.h>
- X#include <string.h>
- X#include <ctype.h>
- X#include <time.h>
- X#include <signal.h>
- X#include "config.h" /* lib protos and config stuff */
- X#include "uucico_protos.h" /* uucico protos */
- X
- END_OF_FILE
- if test 631 -ne `wc -c <'uucp2/src/uucico/includes.h'`; then
- echo shar: \"'uucp2/src/uucico/includes.h'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/uucico/includes.h'
- fi
- if test -f 'uucp2/src/uucico/uuhosts.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/uucico/uuhosts.c'\"
- else
- echo shar: Extracting \"'uucp2/src/uucico/uuhosts.c'\" \(802 characters\)
- sed "s/^X//" >'uucp2/src/uucico/uuhosts.c' <<'END_OF_FILE'
- X
- X/*
- X * UUHOSTS -- List all UUCP sites connected to our system
- X *
- X * $Header: Beta:src/uucp/src/uucico/RCS/uuhosts.c,v 1.1 90/02/02 11:55:57 dillon Exp Locker: dillon $
- X *
- X *
- X * Usage: UUHOSTS
- X *
- X * Copyright 1988 by William Loftus. All rights reserved.
- X *
- X * ARPA: wpl@prc.unisys.com
- X * UUCP: wpl@burdvax.UUCP
- X * USMAIL: Unisys/Paoli Research Center;PO BOX 517;Paoli, PA 19301-0517
- X *
- X */
- X
- X#include <stdio.h>
- X#include "version.h"
- X
- XIDENT(".02");
- X
- Xvoid
- Xmain()
- X{
- X char buf[256];
- X FILE *fd;
- X
- X if (!(fd = fopen(MakeConfigPath(UULIB, "L.sys"), "r"))) {
- X printf("Couldn't open L.sys file\n");
- X exit(1);
- X }
- X
- X while (fgets(buf, sizeof buf, fd)) {
- X if (buf[0] == '#' || buf[0] == '\n')
- X continue;
- X buf[(int)strchr(buf,' ') - (int)buf] = '\0';
- X printf("%s\n", buf);
- X }
- X fclose(fd);
- X}
- X
- END_OF_FILE
- if test 802 -ne `wc -c <'uucp2/src/uucico/uuhosts.c'`; then
- echo shar: \"'uucp2/src/uucico/uuhosts.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/uucico/uuhosts.c'
- fi
- if test -f 'uucp2/src/uucico/uuname.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/uucico/uuname.c'\"
- else
- echo shar: Extracting \"'uucp2/src/uucico/uuname.c'\" \(859 characters\)
- sed "s/^X//" >'uucp2/src/uucico/uuname.c' <<'END_OF_FILE'
- X
- X/*
- X * UUNAME.C
- X *
- X * $Header: Beta:src/uucp/src/uucico/RCS/uuname.c,v 1.1 90/02/02 11:56:07 dillon Exp Locker: dillon $
- X *
- X * UUHOSTS -- List all UUCP sites connected to our system
- X *
- X * Usage: UUHOSTS
- X *
- X * Copyright 1988 by William Loftus. All rights reserved.
- X *
- X * ARPA: wpl@prc.unisys.com
- X * UUCP: wpl@burdvax.UUCP
- X * USMAIL: Unisys/Paoli Research Center;PO BOX 517;Paoli, PA 19301-0517
- X */
- X
- X#include <stdio.h>
- X#include <stdlib.h>
- X#include <string.h>
- X#include "version.h"
- X
- XIDENT(".01");
- X
- Xvoid
- Xmain()
- X{
- X char buf[256];
- X FILE *fd;
- X
- X if (!(fd = fopen(MakeConfigPath(UULIB, "L.sys"), "r"))) {
- X printf("Couldn't open L.sys file\n");
- X exit(1);
- X }
- X
- X while (fgets(buf, sizeof buf, fd)) {
- X if (buf[0] == '#' || buf[0] == '\n')
- X continue;
- X buf[(int)strchr(buf,' ') - (int)buf] = '\0';
- X printf("%s\n", buf);
- X }
- X
- X fclose(fd);
- X}
- X
- X
- END_OF_FILE
- if test 859 -ne `wc -c <'uucp2/src/uucico/uuname.c'`; then
- echo shar: \"'uucp2/src/uucico/uuname.c'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/uucico/uuname.c'
- fi
- if test ! -d 'uucp2/src/uuser' ; then
- echo shar: Creating directory \"'uucp2/src/uuser'\"
- mkdir 'uucp2/src/uuser'
- fi
- if test -f 'uucp2/src/uuser/DMakefile' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/uuser/DMakefile'\"
- else
- echo shar: Extracting \"'uucp2/src/uuser/DMakefile'\" \(645 characters\)
- sed "s/^X//" >'uucp2/src/uuser/DMakefile' <<'END_OF_FILE'
- X
- X# DMakefile for uuser:
- X#
- X# $Header: Beta:src/uucp/src/uuser/RCS/DMakefile,v 1.1 90/02/02 12:10:12 dillon Exp Locker: dillon $
- X#
- X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X
- XOD= ltmp:uucp/
- XSYMS= uucp:src/lib/all.m
- XSRCS= uuser.c misc.c
- XOBJS= $(SRCS:"*.c":"$(OD)*.o")
- XCFLAGS= -iuucp:src/include/ -cimq -v
- XLEXE= uucp:l/
- X#LIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
- XLIBS= lib:lc.lib lib:amiga.lib
- X
- Xall: $(LEXE)uuser-handler
- X
- X# BUG, A4 never loaded!
- X#
- X#$(LEXE)uuser-handler : $(OBJS)
- X# blink from $(OBJS) ADDSYM TO %(left) lib $(LIBS)
- X#
- X#$(OBJS) : $(SRCS)
- X# lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
- X
- END_OF_FILE
- if test 645 -ne `wc -c <'uucp2/src/uuser/DMakefile'`; then
- echo shar: \"'uucp2/src/uuser/DMakefile'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/uuser/DMakefile'
- fi
- if test -f 'uucp2/src/uuser/DMakefile.dcc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/uuser/DMakefile.dcc'\"
- else
- echo shar: Extracting \"'uucp2/src/uuser/DMakefile.dcc'\" \(465 characters\)
- sed "s/^X//" >'uucp2/src/uuser/DMakefile.dcc' <<'END_OF_FILE'
- X
- X# DMakefile for uuser:
- X#
- X# $Header: Beta:src/uucp/src/uuser/RCS/DMakefile,v 1.1 90/02/02 12:10:12 dillon Exp Locker: dillon $
- X#
- X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
- X
- XOD= dtmp:uucp/
- XSRCS= uuser.c misc.c
- XOBJS= $(SRCS:"*.c":"$(OD)*.o")
- XCFLAGS= -I uucp:src/include/
- XLEXE= uucp:l/
- X
- Xall: $(LEXE)uuser-handler
- X
- X$(LEXE)uuser-handler : $(OBJS)
- X dcc $(OBJS) -o %(left) -s
- X
- X$(OBJS) : $(SRCS)
- X dcc $(CFLAGS) %(right) -o %(left) -c
- X
- END_OF_FILE
- if test 465 -ne `wc -c <'uucp2/src/uuser/DMakefile.dcc'`; then
- echo shar: \"'uucp2/src/uuser/DMakefile.dcc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/uuser/DMakefile.dcc'
- fi
- if test -f 'uucp2/src/uuser/mountlist' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/uuser/mountlist'\"
- else
- echo shar: Extracting \"'uucp2/src/uuser/mountlist'\" \(100 characters\)
- sed "s/^X//" >'uucp2/src/uuser/mountlist' <<'END_OF_FILE'
- X
- XUUSER: Handler = uucp:l/uuser-handler
- X Stacksize = 6000
- X Priority = 5
- X GlobVec = 1
- X#
- X
- END_OF_FILE
- if test 100 -ne `wc -c <'uucp2/src/uuser/mountlist'`; then
- echo shar: \"'uucp2/src/uuser/mountlist'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/uuser/mountlist'
- fi
- if test -f 'uucp2/src/uuser/version.doc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'uucp2/src/uuser/version.doc'\"
- else
- echo shar: Extracting \"'uucp2/src/uuser/version.doc'\" \(107 characters\)
- sed "s/^X//" >'uucp2/src/uuser/version.doc' <<'END_OF_FILE'
- X
- X
- XUUSER:
- X .02 Various bugs fixed ... I *hope* this fixes the
- X freezing up problem!
- X
- X .01 Initial release
- X
- END_OF_FILE
- if test 107 -ne `wc -c <'uucp2/src/uuser/version.doc'`; then
- echo shar: \"'uucp2/src/uuser/version.doc'\" unpacked with wrong size!
- fi
- # end of 'uucp2/src/uuser/version.doc'
- fi
- echo shar: End of archive 1 \(of 12\).
- cp /dev/null ark1isdone
- MISSING=""
- for I in 1 2 3 4 5 6 7 8 9 10 11 12 ; do
- if test ! -f ark${I}isdone ; then
- MISSING="${MISSING} ${I}"
- fi
- done
- if test "${MISSING}" = "" ; then
- echo You have unpacked all 12 archives.
- rm -f ark[1-9]isdone ark[1-9][0-9]isdone
- else
- echo You still need to unpack the following archives:
- echo " " ${MISSING}
- fi
- ## End of shell archive.
- exit 0
- --
- Mail submissions (sources or binaries) to <amiga@cs.odu.edu>.
- Mail comments to the moderator at <amiga-request@cs.odu.edu>.
- Post requests for sources, and general discussion to comp.sys.amiga.
-